# Items

itemText:


itemText:


itemText:
<%
Dim oFS
Dim sPath
Dim oFile
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
sPath = Request.ServerVariables("Path_Translated")
Set oFile = oFS.GetFile(sPath)
response.write "Last Updated " & oFile.DateLastModified & " Webmaster © 1999"
Set oFile = Nothing
Set oFS = Nothing
%>


itemName:
Scrolling Banner (Delete Existing Body Tag)

itemText:




itemText:
<!-- Copy & Paste  the following line (<OPTION..etc)  for as many pages as you want -->

Description goes here




itemText:
<FORM>



itemText:
Internet Explorer Users: Click here to

Add this Site to your favorites


itemText:

Change the  height, width, top and left to customize size and screen position.
<FORM>


itemText:




itemText:
If  err.number>0 then
      response.write "VBScript Errors Occured:" & ""
      response.write "Error Number=" & err.number & ""
      response.write "Error Descr.=" & err.description & ""
      response.write "Help Context=" & err.helpcontext & "" 
      response.write "Help Path=" & err.helppath & ""
      response.write "Native Error=" & err.nativeerror & ""
      response.write "Source=" & err.source & ""
      response.write "SQLState=" & err.sqlstate & ""
end if
IF  Myconn.errors.count> 0 then
' REMEMBER to CHANGE "Myconn" to your connection Variable name
      response.write "Database Errors Occured" & ""
      response.write SQLstmt & ""
'REMEMBER to CHANGE "SQLstmt" to your SQL Variable Name
for counter= 0 to conn.errors.count
      response.write "Error #" & Myconn.errors(counter).number & ""
      response.write "Error desc. -> " & conn.errors(counter).description & ""
	Response.Write "Error Message Goes here "

next
else
      response.write "Successful Statement Goes Here!"

end if


itemText:
for x = 1 to request.form.count() 
	if request.form.item(x)<>"" then ' checks to see if item is blank - won't send blank items
		if request.Form.key(x)<>"Submit" then	
		        response.write "" & (request.form.key(x) & " = ") 
		        response.write(request.form.item(x) & "
") 
		End If
	End If
next


itemText:
<%
Sub SizeText(Variable, size)
	if len(Variable) < size then
		response.Write size
	else
		MyPos=Instr(1, Variable, "@", 1)
		if MyPos < 0 then
			response.Write (len(Variable)+1)
		else
			response.Write (len(Variable)+2)
		End If
	End If
End Sub
%>


itemText:

<!--
function gettheDate() {
	Todays = new Date();
	Mnth = Todays.getMonth()+ 1;
	if (Mnth == 1) {
		Month = "January";
	}
	if (Mnth == 2) {
		Month = "February";
	}
	if (Mnth == 3) {
		Month = "March";
	}
	if (Mnth == 4) {
		Month = "April";
	}
	if (Mnth == 5) {
		Month = "May";
	}
	if (Mnth == 6) {
		Month = "June";
	}
	if (Mnth == 7) {
		Month = "July";
	}
	if (Mnth == 8) {
		Month = "August";
	}
	if (Mnth == 9) {
		Month = "September";
	}
	if (Mnth == 10) {
		Month = "October";
	}
	if (Mnth == 11) {
		Month = "November";
	}
	if (Mnth == 12) {
		Month = "December";
	}
	TheDate = "" + Month +" "+ Todays.getDate() + ", " + 
	Todays.getYear() 
	return (TheDate);
	}


function select_url(x)
		{
        location = x;
        }

//-->
// then do this:


itemText:
<% 
Function ExtractFileName(strfilename)
	Dim X
	For X = Len(strfilename) To 1 Step -1 
	If Mid(strFilename, X, 1) = "/" Then Exit For 
	Next 
	ExtractFileName = Right(strFilename, Len(strFilename) - X) 
End Function 
%>


itemText:
<% 
for each x in session.contents
response.Write x & ": " & session(x) & " "
next
 %>


itemText:


itemText:
<%
Sub MakeEmailLink(email)

Response.write "" & email & ""

End Sub
%>


itemName:
Iterate Form Collection - MailSend(Body)

itemText:
MyBody=""
    for x = 1 to request.form.count() 
        MyBody=MyBody & (request.form.key(x) & " = ") &  (request.form.item(x) & vbcrlf) 
    next


itemText:
<!-- Beginning of JavaScript -
function emailvalidation(entered, alertbox)
{
// E-mail Validation by Henrik Petersen / NetKontoret
// Explained at www.echoecho.com/jsforms.htm
// Please do not remove this line and the two lines above.
with (entered)
{
apos=value.indexOf("@"); 
dotpos=value.lastIndexOf(".");
lastpos=value.length-1;
if (apos<1 || dotpos-apos<2 || lastpos-dotpos>3 || lastpos-dotpos<2) 
{if (alertbox) {alert(alertbox);} return false;}
else {return true;}
}
}

function emptyvalidation(entered, alertbox)
{
// Emptyfield Validation by Henrik Petersen / NetKontoret
// Explained at www.echoecho.com/jsforms.htm
// Please do not remove this line and the two lines above.
with (entered)
{
if (value==null || value=="")
{if (alertbox!="") {alert(alertbox);} return false;}
else {return true;}
}
}



function formvalidation(thisform)
{
with (thisform)
{
if (emptyvalidation(name,"The Name field is empty.")==false) {name.focus(); return false;};
if (emptyvalidation(scenario,"The Scenario field is empty.")==false) {scenario.focus(); return false;};
if (emailvalidation(email,"You must include a valid E-mail address.")==false) {email.focus(); return false;};
if (emptyvalidation(version,"You must inlclude the version # of ASP Express you are using.")==false) {version.focus(); return false;};
if (emptyvalidation(Problem,"You must include a problem description.")==false) {Problem.focus(); return false;};

}
}

//put this line in the Form Tag - onsubmit="return formvalidation(this)

// - End of JavaScript - -->


